home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)mc.d64 / bullet dist.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  47 lines
  1. 100 PRINT"[147]       HOW FAR WILL MY GUN SHOOT?       "
  2. 110 PRINT"DATA FROM LYMAN RELOADING HANDBOOK"
  3. 120 N=29:DIMC$(N),B(N),V(N),Y(N),M(N)
  4. 130 FORF=1TON:READC$(F):READB(F):READV(F):READY(F):M(F)=(INT(Y(F)*30/528))/100:NEXT
  5. 140 GOTO350
  6. 150 DATA222 REM,50,3200,2500,223 REM,55,3300,2766,22/250 REM,55,3810,2933
  7. 160 DATA243 WIN,80,3500,3500,243 WIN,100,3070,4000,270 WIN,100,3430,3333
  8. 170 DATA270 WIN,130,3140,4000,270 WIN,150,2800,4333,7MM REM MAG,150,3260,4466
  9. 180 DATA7MM REM MAG,175,3070,4933,30/30 WIN,150,2410,3500,308 WIN,150,2860,3666
  10. 190 DATA308 WIN,180,2610,4166,308 WIN,200,2450,4500,30-06 GOVT,150,2970,3666
  11. 200 DATA30-06 GOVT,220,2410,4666,300 H+H MAG,150,3190,3833,300 H+H MAG,180,2920,4666
  12. 210 DATA300 H+H MAG,220,2620,4833,444 MARLIN,240,2400,2533,45-70 GOVT,405,1320
  13. 220 DATA3333
  14. 230 DATA38 SPECIAL,158,855,1833,38 SPECIAL,158,1090,2133,357 MAGNUM,158,1410,2366
  15. 240 DATA41 MAGNUM,210,1500,2366,44 MAGNUM,240,1470,2500,45 AUTO,210,710,1466
  16. 250 DATA45 AUTO,230,850,1700,45 AUTO,230,945,1833
  17. 260 FORF=N1TON2:PRINTC$(F)TAB(13)B(F)TAB(19);:IFV(F)<1000THENPRINT" ";
  18. 270 PRINTV(F)TAB(26)Y(F)TAB(33);:IFM(F)<1THENPRINT" ";
  19. 280 PRINTM(F):NEXT
  20. 290 PRINT" PUSH ANY KEY TO CONTINUE [146][145]"
  21. 300 GETQ$:IFQ$=""THEN300
  22. 310 RETURN
  23. 320 PRINT"CARTRIDGE       BULLET    YARDS   MILES ";
  24. 330 PRINT"  NAME        GRN   VEL.    TRAVELED    [146]";:RETURN
  25. 340 PRINT"[147]"
  26. 350 PRINT" THIS PROGRAM PRINTS THE MAXIMUM RANGE"
  27. 360 PRINT" FOR GUNS SHOT AT A 30 DEGREE ANGLE"
  28. 370 PRINT" PUSH KEY FOR DESIRED FUCTION"
  29. 380 PRINT"  1  RIFLE DATA TO SCREEN":PRINT"  2  PISTOL DATA TO SCREEN"
  30. 390 PRINT"  3  HARD COPY OF ALL TO PRINTER":PRINT"  4  END PROGRAM"
  31. 400 GETQ$:IFQ$=""THEN400
  32. 410 PRINT"[147]"
  33. 420 IFQ$="4"THENPRINT"[147] GOOD BYE.":END
  34. 430 IFQ$="3"THENGOSUB470
  35. 440 IFQ$="1"THEN:N2=21:N1=1:GOSUB320:GOSUB260
  36. 450 IFQ$="2"THEN:N1=22:N2=N:GOSUB320:GOSUB260
  37. 460 GOTO340
  38. 470 OPEN4,4,4:TB$=CHR$(16)
  39. 480 PRINT#4,"                      HOW FAR WILL MY GUN SHOOT ?":PRINT#4
  40. 490 PRINT#4,"                        BULLET          DISTANCE FROM 30 DEGREES"
  41. 500 PRINT#4," CARTRIDGE NAME     GRAINS  VELOCITY      YARDS          MILES"
  42. 510 PRINT#4,"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  43. 520 FORF=1TON:PRINT#4,C$(F)TB$"21"B(F)TB$"29";:IFV(F)<1000THENPRINT#4," ";
  44. 530 PRINT#4,V(F)TB$"41"Y(F)TB$"56";:IFM(F)<1THENPRINT#4," ";
  45. 540 PRINT#4,M(F):PRINT#4:NEXT
  46. 550 CLOSE4:GOTO340
  47.